10 XU=-5 : XO=5 : YU=-5 : YO=5
20 SYS 37173,"INT(X)",XU,XO,YU,YO
30 :
40 YP=ABS(YO/(YO-YU))*199
50 FOR XV=XU TO XO
60 : XP=ABS((XV-XU)/(XO-XU))*319
70 : FOR I=-3 TO 3 : SYS 38144,XP,ABS(YP+I) : NEXT I
80 NEXT XV
90 :
100 XP=ABS(XU/(YO-YU))*319
110 FOR YH=XU TO XO
120 : YP=ABS((YO-YH)/(YO-YU))*199
130 : FOR I=-3 TO 3 : SYS 38144,ABS(XP+I),YP : NEXT I
140 NEXT YH
150 :
160 GETZ$ : IF Z$="" THEN 160
170 SYS40211